home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / tools / prtfolio / etch.bas < prev    next >
Encoding:
BASIC Source File  |  1994-09-22  |  574 b   |  19 lines
  1.  fi$="NEW"
  2. 10 SCREEN 4:CLS
  3.  X=0:Y=0:OX=0:OY=0:m=1
  4.  PSET(X,Y),1
  5. 20 A$=INKEY$ : IF A$="" THEN 20
  6.  IF A$="e" THEN 10
  7.  if a$="l" then screen 7 : input "Filename";fi$ : screen 4 : pgload fi$
  8.  if a$="s" then pgsave fi$ : beep
  9.  IF A$="K" THEN X=X-1:if x<0 then x=0
  10.  IF A$="M" THEN X=X+1:if x>199 then x=199
  11.  IF A$="H" THEN Y=Y-1:if y<0 then y=0
  12.  IF A$="P" THEN Y=Y+1:if y>63 then y=63
  13.  IF A$="S" THEN M=-M
  14.  if a$="G" then x=0:y=0
  15.  IF A$=chr$(27) THEN SCREEN 2 : if isrun then run "menu" else system
  16.  IF M<0 THEN PSET(OX,OY),0
  17.  PSET(X,Y),1 : OX=X : OY=Y
  18.  GOTO 20
  19. ə